10 POKE53280,11:POKE53281,0:POKE646,13:PRINT"[147]      FORD PREFECT'S HIGHSCOREMAKER"
20 PRINT"  WRITTEN 1993   PUBLIC DOMAIN SOFTWARE"
30 PRINT"[159] SPIEL : [158]CYRUS"
40 PRINT"[154]            HIGHSCORE :"
50 PRINT"            [163][163][163][163][163][163][163][163][163][163][163]"
60 L$="HISCORE OF CYRUS,P,R"
70 : OPEN 1,8,2,L$
80 : GET #1,NO$,NO$
90 :   FOR X = 49152 TO 49152+60
100 :    GET#1,BY$
110 :    IF BY$ =""THEN POKEX,0:GOTO130
120 :    POKE X,ASC(BY$)
130 :  NEXT X
140 :CLOSE 1
150 :
160 : FOR L = 0 TO 2
170 :      FOR R = 0 TO 19
180 :      S=(PEEK(49152+L*20+R))
190 :      IFS<32 THENS=S+64
200 :      IFS=64 THEN S=32
210 :      IFS=205 THEN S=32
220 :      S$= CHR$(S)
230 :      F$(L)=F$(L)+S$
240 :      NEXT R
250 : PRINT F$(L)
260 : NEXT L
270 :
280 PRINT" WELCHEN EINTRAG MOECHTEST DU AENDERN ?"
290 PRINT"[159]   1 - 1ST     2 - 2ND     3 - 3RD"
300 PRINT"       - RUN/STOP ZUM BEENDEN -"
310 GETA:IFA=0THEN310
320 Q=A-1:P=Q*20:PRINT"[156]MAX. 20 ZEICHEN GESAMTLAENGE !![159]"
325 PRINT"  [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
330 PRINT"  ";F$(Q)
340 INPUT"[145]";N$(Q)
350 IFLEN(N$(Q))>20THENPRINT"[145]";:GOTO330::::
360 FORL=0TO19:POKE49152+P+L,PEEK(1024+23*40+2+L):NEXTL
370 PRINT"[153] AENDERUNGEN WERDEN GESPEICHERT !"
380 OPEN15,8,15,"S:HISCORE OF CYRUS":CLOSE15
390 : L$="HISCORE OF CYRUS,P,W"
400 : OPEN 1,8,2,L$
410 : PRINT#1,CHR$(40);CHR$(137);
420 :    FOR L = 0 TO 59
430 :    PRINT#1, CHR$(PEEK(49152+L));
440 :    NEXT L
450 : CLOSE 1
460 :                    RUN
470 :
480 :
490 : FORD PREFECTS HIGHSCOREMAKER
500 : GAME : CYRUS
510 :
520 : DANNY BUSCH
530 : BIRKENALLEE 18
540 : 65549 LIMBURG (GERMANY)
550 : TEL.: 06431/25866